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PROGRAM BRIEF 



A. Purpose: This program provides solutions to the problems of criti- 
cal path and man scheduling. However, it provides only partial solutions 
to the ultimate scheduling problem since least cost scheduling is not con- 
sidered and since the man scheduling phase is not an optimizing routine; 
i. e. , it does not level the manpower requirements. Instead, it allows 
management to level its manpower as it wishes. The 1620 man schedul- 
ing program generally gives a near optimum feasible solution to a realis- 
tic problem. 

B. Method: The program contains two phases. Phase I, the Critical 
Path or LESS phase, develops a schedule of early and late short dates 
and total float, using the Critical Path concept. Phase I ignores the man- 
power requirements and operates only on durations and the interrelation- 
ship of jobs. Phase II, the Man Scheduling phase, developes schedules 

of start dates using the information generated by Phase I and the various 
sets of manpower restrictions imposed by the user. 



C. Restrictions: 
1) 40K Version: 

a) Phase I: 740 jobs; I, J numbers ^ 999 

b) Phase II: Queues of at most 70 for both in process 

and waiting lines. 



2) 60K Version: 

a) Phase I: 1440 jobs; I, J numbers 999 

b) Phase II: Queues of at most 180 for both in process 

and waiting lines. 



D„ Accuracy: Near optimum solution in most cases. 

E. Machine Configuration: 1620 with 40K core storage for 40K version 
and 60K core storage for 60K version; 1622 card read punch. 



F. Program Requirements: 

For 40K version: 40K core storage 
For 60K version: 60K core storage 

G. Source Language: FORTRAN with Format 

H. Program Execution Time: Approximately 1 hour per 100 jobs input. 
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I. Check-Out Status: Successfully employed on projects of 500 jobs. 

J. Sample Problem Running Time: The sample problem as indicated 
will take approximately 30 minutes. 

K. Comments: The program and its documentation were written by an 
IBM employee. It was developed for a specific purpose and submitted 
for general distribution to interested parties in the hope that it might 
prove helpful to other members of the data processing community. The 
program and its documentation are essentially in the author's original 
form. IBM serves only as the distributing agency in supplying this pro- 
gram. Qiestions concerning the use of the program should be directed 
to the author's attention. 
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Detailed Program Description 



A. Phase I - Critical Path - LESS 

This phase, after printing an instruction message commences 
to initialize the indicators and setup constants. Then the I 
number, J number, and the duration time are read in from 
cards. Then, depending upon the value of the I number the 
program will: 1) Stop if the I number equals zero; 2) proceed 
if the I number is greater than zero; 3) if I is less than zero 
the program substitutes the absolute value of I and K=2, types 
"Reload Data" and proceeds. 

Floating point arithmetic is now established and the calculations 
are begun. The early start time is computed then converted to 
fixed point numbers. Next the duration time is computed and 
immediately transferred to fixed point form. Then early finish 
time, late finish time, late start time, and total float time are 
computed and then all switched to fixed point format. Depend- 
ing upon the sense switch selection, the output is then prepared. 
The options available are: 1) no output; 2) printed output; and 
3) punched output. 

B. Phase II - Man Scheduling 

This phase begins by testing the sense switch output options and 
then immediately types and/ or punches the headings. Then, 
after initializing the constants, the craft availabilities, correc- 
tions, and all data are read in to storage. If the card is a man- 
power availability master this information is placed in storage. 
If the card is a manpower update card the relevant manpower 
abilities are updated and corrected. The data is now processed 
and the jobs are placed in a waiting line. The program then 
checks to see if a job can logically begin. The manpower must 
then be adjusted providing, of course, that enough manpower is 
available. The finish date is then computed and the job is placed 
in progress. The waiting line is then advanced. If a critical job 
is waiting, the program checks to see if this job can logically be 
started. First we must determine if manpower can be released 
from another job already in progress to facilitate the completion 
of this critical job. Hence we must locate men in the proper 
craft class to fill the needs of the critical job and see if these 
men can be acquired from an in-process job. If the job in pro- 
gress cannot be delayed the critical job cannot be started. If 
this job can be delayed, the available relevant manpower is re- 
leased and the interrupted job is stored in the waiting queue. 
Meanwhile, the in-process jobs are now checked. If a job has 
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ended on the current date the manpower from that job is re- 
leased. The computer signifies this completion in the output. 
When the last job has been completed a "project complete" 
message is printed and the computer stops. 
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INPUT-OUTPUT FORMAT 



Input to Phase I, Pass 1 and Pass 2 

Each number should be less than 999 and right justified in 
its field. The Format Statements indicate 14, or four col- 
umns, for each field. One of these columns is assumed to 
contain a sign whether the sign is punched or not. A four 
digit number will cause an input error and if 15 is used to 
permit usage of a 4 digit number plus sign, an error will 
be generated in the Critical Path Program. Consequently, 
under present coding the field size is restricted to a 3 
digit number and a sign, which may be omitted. 



Columns 2-5 



The I number 



Columns 6-9 



The J number 



Columns 10-13 



The duration, this can be any 
unit (eg. minutes, hours, days, 
etc. ) the user desires. All 
durations in the same project 
should be in the same units of 
time. 



Columns 14-33 
Columns 34-37 

Columns 38-41 



Should be left blank 

Should contain the craft identi- 
fication number of one of the 
crafts the job uses. 

Should contain the number of 
units of the craft described in 
columns 34-37 that the job 
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Columns 



4Z-45 Should contain the code which will 
be described later. 



Columns 46-49 Should contain the identification num- 
ber of a second craft the job may 
use. 

Columns 50-53 Should contain the number of units 
of the craft described in columns 
46-49 that the job uses. 

Columns 54-5 7 Identification of a third craft. 

Columns 58-61 Number of units of the third craft 
used. 

Note in 40K version only 3 crafts per job are recognized - See operating 
tips to see how to overcome this. In 60K version. 

Columns 6Z-65 Identification of fourth craft used. 

(Leave blank in 40K version). 

Columns 66-69 Number of units of the fourth craft 
used. (Leave blank in 40K version). 

If a job doesn't use four (three in 40K version) crafts the respective fields 
may be left blank. If no crafts are needed (eg. certain types of delays or 
dummy jobs columns 34-41 and 46-69 may be left blank). 

Data input must be sorted J within I sequence (Columns 2-9). 

*Note last input card to Phase I must have a minus I number, minus in 
column 1. 



B. 



Input to Phase II 



Craft Availabilities 



The first set of cards should be craft 
availabilities and the user may have up 
to 20 of these cards. Each craft availa- 
bility card should have the following for- 
mat. All numbers are right justified and 
less than or equal to 999. 
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Columns 



34-37 The craft number. This can be any 
number not necessarily in order 
or between 1 and ZO. 



Columns 38-41 The number of units of this craft 
available. 

Columns 44-45 The number 11 should appear here 
to tell the program this is a craft 
availability card. 

2. The rest of the data cards consist of output 

from Phase 1 pass 2, craft availability 
updates, and clock update cards. 



Job Information 



The format of the output of Phase 1, pass 2 and subsequent 
input to Phase 2 is as follows: 

Columns 2-5 I number 

Columns 6-9 J number 

Columns 10-13 Duration of job 

Columns 14-17 Early start time 

Columns 18-21 Late start time 

Columns 22-25 Early finish time 

Columns 26-29 Late finish time 

Columns 30-33 Float time 

Columns 34-69 Same as input to Phase I 

This is the format of the card output. The typewriter differs 
somewhat and is as shown in the sample Output section. 

All of the above numbers are right justified fixed point numbers 
less than or equal to 999. 
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The output from Critical Path Scheduling may be sorted as 
desired for listing. For input to Phase II, Man Scheduling, 
these cards must be sorted first by total float then by early 
start (eg. they should be ordered by total float within early 
start). Note last card after sort must have a code of 3 1 or 
32 (see section on code number). 

Availability Update 

3. Interspersed with the preceeding cards may be re- 
source availability update cards. These update cards 
may increase or decrease the availability of resources 
of any craft. The updating of the availability due to 
these update cards will take place at a time equal to 
the early start date of the last job and read in before 
this update card (see operating tips). The format for 
this card follows: 

Columns 34-37 Craft number whose availability is 
to be updated. 

Columns 38-41 Plus or minus change in availa- 
bility. Number should be between 
999 and -999. 

Columns 44-45 22 

All numbers should be right adjusted fixed point 
numbers. 

4. Inserted with the input to Phase II might be a clock up- 
date card. If no clock update card is used the clock 
will increment in time units of 1 and all queues will 

be inspected each unit of time. If a clock update card 
is used (eg. saying the clock should be incremented 
by N units) then the clock will be incremented by N 
units and the queues will be inspected every N units of 
time. This clock update may be inserted anywhere in 
the deck and will take effect at the early start time or 
closest increment thereafter of the preceeding job 
card (see operating tips). The unit of time used by the 
man scheduling program is up to the discretion of the 
user in that it will be the same unit of time that the 
user uses for his job duration times. 
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After each end of project the time increment is auto- 
matically made equal to 1 unit. If an error should 
occur and the user desires to restart, the time in- 
crement will be equal to the time increment being 
used when the error stop occurred. 



Clock Update Card Format 

Column 10-13 A right adjusted plus number 

equal to or less than 999- 

Column 45 The number 1 



Code Number 



The code number appears as a right adjusted fixed point number less 
than or equal to 99 in columns 44-45. Its value should be: 

01 if the card is a clock update card. 

11 if the card is a craft availability master 

22 if the card is a craft availability update 

30 if this job cannot be delayed after it has begun. In other 

words, orieet the job has been started and it partly 
finished, it cannot be stopped and restarted at a 
later date to allow a more critical job to start. 

31 if this job card is last card and this job cannot be delayed 

after it has begun. 

32 if card is last card and other than type described by 

code 31. 

*Note a job card (output of Phase T) must be last card input 
to Phase II. 



Operating tips 

1. If a job requires more than 4 crafts (3 crafts in a 

40K) then the job can be broken into 2 or more jobs 
as follows: 




Here job 1-2 requires crafts 
A, B, C, D, E, F 



Here job 1-3 requires crafts 
A, B, C. Job 1-2 requires 
crafts D, E, F. 
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Z. If the user desires to update the craft availabilities 

at a specific time (eg. , to account fur overtime), or 
change the clock increment at a specific time. lie 
might insert into the output from Phase I with the up- 
date card a dummy job card with an early start date 
and late start date equal to the time the updating is to 
take place. The I, J number should be ones not used 
elsewhere in the program; all other fields should be 
zero. Of course, these two cards must be placed in 
the proper spot in the deck (by total float within early 
start date) and the dummy job card should precede the 
update card. This dummy job card should not be placed 
in the phase i input and will not affect the man- scheduling 
program. However, it will show up in the output as a 
finished job indication and exhibit in the labor summary 
the new availabilities. 

If a negative craft availability adjustment is made 
(e.g., at the end of overtime shift) and the availability 
pool is too small to fill the requirement of the adjust- 
ment, jobs in progress will be delayed until the require- 
ment of the adjustments are met. If, however, all jobs 
in progress which can be delayed are delayed and the 
requirement of the adjustment still is not met, the total 
requirement will not be met until some undelayable jobs 
in progress are finished and enough units of the proper 
craft are released to meet the remainder of the re- 
quirements. In the meantime, those jobs which were 
delayed will remain delayed and part of the requirement 
of the adjustment will be filled. If a negative craft ad- 
justment is fulfilled at a later time than the user had 
desired, resulting from conditions explained above, a 
printout will occur with the word finish and the craft 
number at the time this adjustment is fulfilled. 

3. A time increment other than 1 might be used if computer 

time needs to be saved. 

Changing the time increment may reduce the computing 
time proportionally (e. g. , time increment of 5 will go 
almost four times as fast). The larger the time incre- 
ment, the faster the computer run is; but the less accurate 
the scheduling is unless the increment corresponds to 
the duration increments. If the user only desires a 
rough estimate of the schedule (or a part of the schedule) 
the user may introduce a large time increment for the 
whole run of the program (or only part of the program). 
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If a 40K user desires the more extensive treatment 
of the 60K program and finds the queue sizes are 
more than he needs he can change the fortran source 
program of the 60K deck in the following manner: 

i) Change all 180 and 170 numbers to 45 in the 3 dimen- 
sion cards at the beginning of the program. 

ii) The card in front of the card with statement 
number 36 should be changed from - 

IF (NWL - 180) 36, 36, 1902 to: IF (NWL - 
45) 36, 36, 1902 

iii) The card 2 cards in front of the card with 
statement number 91 should be changed from - 
IF (NIP - 170)91,91,904 to: IF (NIP - 45) 
91,91,904 

iv) The card in front of the card with statement 
number 2 77 should be changed - 

from: IF (NWL - 180) 277, 277, 1902 
to: IF (NWL - 45) 277, 277, 1902 

These changes will allow the 40K user the same things 
as the 60K user gets (eg. 4 crafts per job, complete 
diagnostics). 

If the 60K user desires a large queue capacity for 
projects too large for the present 60K version he may 
make the following changes in the 40K fortran source 
deck to get up to 220 in each queue. 

i) Change all 70 numbers to 220 in the 3 dimen- 
sion cards at the beginning of the program. 

ii) The card in front of the card with statement 
number 36 should be changed from - 

IF (NWL - 70) 36, 36, 1902 to: IF (NWL - 
220) 36, 36, 1902 

iii) The card 2 cards in front of the card with 
statement number 91 should be changed from - 
IF (NIP - 70) 91,91, 1902 to: IF (NIP - 220) 
91, 91, 1902 
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iv) The card in front of the card with statement 
number 2 77 should be changed from - 
IF (NWL - 70) 277,277, 1902 to: IF (NWL - 
220) 277, 277, 1902 

These changes will mean that the user must have 

at most 3 crafts per job and he will not have complete 

diagnostics. 

Interpretation of Output of Man Scheduling (Note the following dis- 
cussions refers to typewriter output. Output on cards uses the same 
format also 1 card per line) 

1. Everytime a job starts - finishes - or is delayed, 

after it has been in progress for a time, a print out 
occurs. This print out contains information about 
the job (see sample print out) on 1 line and then is 
followed by 1 line for each craft this job uses (0 to 
4 lines). On each of these lines the craft number and 
quantity used are typed. 

A minus sign next to the late start date of jobs just 
starting means the job has started after its late 
start date. 

On the 60K version only, a minus early start date 
may appear. The minus sign here is a signal to the 
user that this job did not start earlier because there 
was not enough resources at an earlier point in time. 
The early start date which appears after the minus 
sign will be the time period that the unavailability 
of resources became the only reason that this job 
could not start. This early start date (in the case of 
the minus sign) may not be the same as the early 
start date which was calculated in Phase I". In all 
other cases, (when no minus sign appears before the 
early start date) the early start date printed out will 
be the same as the one calculated during Phase I. 

2. Every time period during which a job is started, 
finished or delayed a craft summary will appear. 
Each labor summary will appear on a separate line 
These lines will contain the craft number, the 
number of units of this craft not in use and thus 
available, and the number of units of this craft 
which are in use and are unavailable at this time 
period. 
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Dummy jobs (jobs with duration) will be shown only 
as finished jobs. Other jobs (jobs with other than 
time duration) will be shown as started jobs, perhaps 
delayed jobs and finished jobs. 

Delayed jobs will have their durations, early and 
late start dates recalculated, As a result, when they 
are restarted and finished their output information 
will differ from the output information they had 
when they were initially started. 
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6 OK VERSION CHANGES TO 
CRITICAL PATH BLOCK DIAGRAM 



1. Column 1 (leftmost column) 4th block from the top should read: 

Initialize Indicators: K=1,KK=2, TIJ (N) = 0.0, 
TUN (N) = 0. 0, TDMP (N) = 0. 0, (N=l, .... 1400) 

2. Column 2 (from the left), 7th block from the top should read: 

Is N = 1400? 
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OPERATING INSTRUCTIONS 



Phase I 

1. Clear memory: 160001000000 Release and Start 

2. Load Less (Phase I) Object Program: Press Load 

3. Enter Subroutines: Press Start 

4. Set sense switches: 

SSW 1 on for punching (SSW 1 must be on if output of Phase I 
is to be used as input to Phase II. ) 
SSW 2 on for printing 

5. Pass 1: Enter job data cards; last job card should have a negative 
I number Press Start 

6. Pass 2: When message "Reload Data" appears on typewriter, re- 
enter job data cards and Press Start. 

7. Phase I is completed when machine halts in manual mode (without 
any "Stop" message. ) 

Phase II 

1. Sort output of Phase I first on total float and then on early Start date. 

2. Clear memory: 160001000000 Release and Start. 

3. Load Man Scheduling (Phase II) Object Program: Press Load. 

4. Enter data cards: Press start 

5. Set sense switches: 

SSW 1 on for punching 
SSW 2 on for printing 

6. Press start 
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40K VERSION 
HALT AND MESSAGE LIST 
LESS - PHASE I 



Cause 



Message 



Operator Procedure 



Sense switches must 
be set 

I number equals zero 

Last I number greater 
than zero 

Pass 2 begins 



SSW 1 on=Punch, 
SSW 2 on=Print 

STOP 

STOP 

RELOAD DATA 



Set SSW 1 and SSW 2. 
Press Start. 

None 

None 



Reenter data. Press 
Start. 



Cards not sorted J 
within I sequence 

Total float time is 
negative 

Sequence of data cards 
altered before re- 
loading data 



Phase I completed 



STOP 



STOP 



CARDS OUT OF 
SEQUENCE 



None 



MAN SCHEDULING - PHASE II 



One of the queues is 
larger than 70 



Project completed 



c 



QUEUE CAP. 
EXCEEDED 



PROJECT COM- 
PLETE 

18 



None 



None 



Remove cards from 
card reader, sort 
cards J within I se- 
quence, replace cards 
in card reader, and 
press start. 

Phase I can be restarted 
by entering new data cards 
and pressing Start 



After the queue is 
reduced to 70, data must 
be reentered according 
to operating instructions 
4 - 6 of Phase II. 

Phase II can be restarted 
by entering new data cards 
and pressing start 



Operator Procedure 

Set SSW 1 and SSW 2. 
Press Start. 

None 

None 



Reenter data. Press 
Start. 



Cause 

Sense switches must 
be set. 

I number equals zero 

Last I number greater 
than zero 

Pass 2 begins 

Cards not sorted J 
within I sequence 

Total float time is 
negative. 

Sequence of data cards 
altered before reloading 
data. 



Phase I completed 



60K VERSION 
HALT AND MESSAGE LIST 
LESS - PHASE I 

Message 

SSW 1 ON= PUNCH 
SSW 2 ON= PRINT 

STOP 

STOP 

RELOAD DATA 

STOP 

STOP 

CARDS OUT OF 
SEQUENCE 

None 



None 
None 

Remove cards from card 
reader, sort cards J within 
I sequence, replace cards 
in card reader, and press 
start. 

Phase I can be restarted 
by entering new data cards 
and pressing Start. 



Set SW 1 and SW 2. Press 
Start. 



MAN 

Sense switches must 
be set 

More than 20 differ- 
ent master craft cards 
have been used. 



SCHEDULING - PHASE II 

SW 1 ON TO PRINT, 
SW 2 ON TO PUNCH 

CRAFTS EXCEED 
20 

18 -A 



After number of master 
craft cards has been limited 
to 20, data must be reen- 
tered according to operating 
instructions 4 - 6 of Phase H. 



© 



o 



Illegal craft 



CORR. CARD HAS 
ILLEGAL CRAFT 



Option 1: Press Non Pro- 
cess Run Out to Obtain 
card containing illegal 
craft. Correct card, turn 
SW 3 on, and reenter data 
according to operating 
instructions 4 - 6 of Phase 
H. 

Option 2: Card containing 
illegal craft can be skipped. 
Turn SW 3 off and press 
Start. 



Job card requires 
more men than 
appear in the com- 
bined sum of the 
in use and avail- 
able pools. 



TOO MANY MEN 
REQUESTED 



Same options available as 
in illegal craft message. 



Card with job 
xxxxxxxxx has 
erroneous craft 
number 



ERROR IN CRAFT 
NO. xxxxxxxxx 



After job card has been 
corrected, data must be 
reentered according to op- 
erating instructions 4-6 of 
Phase II. 



Cards not sorted 
total float time 
within early start 
time. 



CARD OUT OF 
SEQUENCE 



Same options available as 
in illegal craft message. 



Waiting queue is 
larger than 180 



QUEUE CAP. EX- After the queue is reduced 

CEEDED to 180, data must be reentered 

according to operating instruc- 
tions 4-6 of Phase II. 



In process queue is 
larger than 180. 



IN PROCESS 
QUEUE EXCEEDED 



After queue is reduced to 
180, data must be reentered 
according to operating instruc- 
tions 4 - 6 of Phase II. 



Project completed 



PROJECT COMPLETE 



Phase II can be restarted by 
entering new data cards and 
pressing Start 



18-B 



o 

SAMPLE PROBLEM 
Input Phase 1 



1 


2 


10 


0+0 


2 


3 


15 


1+9 


2 


4 


5 


2+20 


2 


5 


20 


2+18 


3 


6 





0+0 


3 


10 


5 


1+10 


4 


9 


10 


3+27 


5 


6 


5 


3+30 


6 


7 


15 


1+5 


6 


8 


15 


3+5 


7 


9 





0+0 


8 


9 





0+0 


9 


23 


5 


2+10 


10 


12 


5 


1+10 


10 


13 


5 


2 + 20 


10 


14 


5 


3+30 


10 


15 


10 


1+8 


12 


19 





0+0 


13 


19 





0+0 


14 


19 





0+0 


15 


16 


25 


1+5 


15 


17 


25 


3+10 


15 


18 


25 


2+5 


16 


19 





0+0 


17 


19 





0+0 


18 


19 





0+0 


19 


20 


5 


3+10 


19 


21 


5 


2+10 


19 


22 


5 


1+10 


19 


24 


5 


2+5 


20 


23 





0+0 


21 


23 





0+0 


22 


23 





0+0 


-23 


24 


10 


3+15 



19 



Typewriter Output Phase 1 



SSW 1 ON 



1 

1 


2 
«& 


i n 

1 w 


t 

Mm 




1 C 
• P 


2 




5 
p 


2 


c 
P 


20 




O 


u 


| 


10 


5 




9 


10 


c 

P 


£ 


c 


6 


7 


1 5 




§ 


1 P 


l 


y 




O 


o 
y 


u 


Q 

y 


*P 


c 
p 


I U 




r 
P 


1 




C 
P 


1 


1 k 




l u 


1 c 
1 3 




1 2 


19 





13 


19 





14 


19 





15 


16 


25 


15 


17 


25 


15 


18 


25 


16 


19 





17 


19 





18 


19 





19 


20 


5 


19 


21 


5 


19 


22 


5 


19 


2k 


5 


20 


23 





21 


23 





22 


23 





23 


2k 


10 



PUNCH, 

10 
10 
10 
25 
25 
15 
30 



50 
50 
50 
30 
30 
30 
30 
35 
35 

11 



65 
65 
65 
65 
65 

$5 
65 
70 
70 
70 



SSW 2 ON 

10 

10 25 

50 15 

25 30 

50 25 

25 30 

55 25 

kS 35 

50 50 

50 50 

65 50 

65 50 

65 55 

60 35 

60 35 

60 35 

30 40 

65 35 

65 35 

65 35 

kO 65 

kO 65 

kO 65 

65 65 

65 65 

65 65 

65 70 

65 70 

65 70 

75 70 

70 70 

70 70 

70 70 

70 80 



- PRINT, 
10 
25 

55 kO 

kS 15 

50 25 
30 

65 kO 

50 15 

65 15 

65 15 

65 15 

65 15 

70 15 

65 30 

65 30 

65 30 

kO 

65 30 

65 30 

65 30 
65 



65 
65 
65 
65 
65 
70 
70 

L° 

70 
70 











10 







HIT START 
CRITICAL 
CRITICAL 



CRITICAL 



CRITICAL 



'CRITICAL 
CRITICAL 
CRITICAL 
CRITICAL 
CRITICAL 
CRITICAL 
CRITICAL 
CRITICAL 
CRITICAL 

CRITICAL 
CRITICAL 
CRITICAL 
CRITICAL 



OUTPUT PHASE 2 
SW1 ON TO PRINT ,SW2 ON TO PUNCH 

TIME JOB 
CRAFT USE AVAIL 



START 



LABOR SUMMARY 



10 
20 
30 



10 

10 START 
10 START 



FINISH 



1 9 




2 18 




SUMMARY 




1 9 


1 


2 18 


2 


3 


30 



1 



25 
25 

25 START 



FINISH 
9 

F I N I SH 



1 10 




SUMMARY 




1 10 





2 18 


2 


3 


30 



DURA E. ST L. ST 



6 
10 



10 



-0 



10 
15 

20 



10 -10 
10 25 



15 


5 



25 -25 



20 



30 
30 

30 START 
10 START 



FINISH 
18 

FINISH 
10 



2 
3 
10 

2 



5 

10 
15 
k 



20 
5 

10 



30 -30 



-in «;n 



30 START 



2 20 




3 30 




SUMMARY 




1 8 


2 


2 20 





3 30 






30 kS 



35 
35 

35 START 
35 START 



FINISH 
20 

FINISH 
30 



27 
20 



35 LABOR SUMMARY 



1 


8 


2 


2 


20 





3 


27 


3 



2 
5 

10 



k 

6 
9 
13 



5 
5 
10 
5 



15 
-30 



55 
60 



to) 
to) 
to) 

to) START 

1 

to) START 

1 

1*0 START 

5 

1*0 START 

3 

40 START 



FINISH 



FINISH 
20 



5 
5 
10 
5 
5 



DELAY 
3 27 



40 LABOR SUMMARY 



10 
10 



FINISH 13 
15 



6 
15 

6 
15 

i* 



15 

13 

19 
16 

7 
17 

8 
18 

9 



10 

5 


25 

15 

25 

15 

25 



to) 
-35 

to) 
-35 

to) 



-to) 
50 

-to) 
50 

-to) 



1 


10 





2 


5 


15 


3 


15 


15 



55 


1 


FINISH 
5 


6 


7 


15 






55 


a 
j 


FINISH 
c 


6 


8 


15 






55 




FINISH 


7 


9 









55 




FINISH 


8 


9 









55 


LABOR 

1 

2 
3 


SUMMARY 

5 5 
5 15 
10 20 












65 


1 


FINISH 
5 


15 


16 


25 






65 


3 


FINISH 
10 


15 


17 


25 






65 


2 


FINISH 
5 


15 


18 


25 






65 




FINISH 


16 


19 









65 




FINISH 


17 


19 









65 




FINISH 


18 


19 









65 


START 

3 


27 




a 




_iin 
—HO 


— ou 


65 


START 

1 


10 


10 


12 


5 


-30 


-60 


65 


LABOR SUMMARY 

1 10 

2 20 

3 27 3 












70 


3 


FINISH 
27 


k 


9 


5 






70 


1 


FINISH 
10 


10 


12 


5 






70 


* 


FINISH 


12 


19 









70 


START 

3 


30 


10 


14 


5 


-30 


-60 


70 


START 




9 


23 


5 


50 


-65 



70 LABOR SUMMARY 

1 10 

2 10 10 





3 


30 












75 


3 


FINISH 
30 


10 


14 


5 






75 


2 


FINISH 
10 


9 


23 


5 






75 




FINISH 


14 


19 









75 


START 

3 


10 


19 


20 


5 


65 


-65 


75 


START 

2 


10 


19 


21 


5 


65 


-65 


75 


START 

1 


10 


19 


22 


5 


65 


-65 


75 


START 

2 


5 


19 


24 


5 


65 


-75 


75 


LABOR SUMMARY 

1 10 

2 15 5 

3 10 20 












oO 


3 


FINISH 
10 


1 9 


zu 


5 






80 


2 


F 1 W ! SH 
10 " 


19 


21 


5 






80 


1 


FINISH 
10 


19 


22 


5 






80 


2 


FINISH 
5 


19 


24 


5 







80 


FINISH 


20 


23 





80 


FINISH 


21 


23 





80 


FINISH 


22 


23 





80 


START 

3 15 


23 


24 


10 


80 


LABOR SUMMARY 









1 





10 


2 





20 


3 


15 


15 



70 -70 



90 FINISH 23 24 10 

3 15 
PROJECT COMPLETE 

© 



f 



24 



© 



DIMENSION TIJ 1 7*0), TI JN( 7*0 1, TDMPI 7*0) 
111 F0RMAT(I5,I4,I4) 

222 FORMAT (15, 1 4, 14, 14, 14, 1 4, 14, 14) 

223 F0RMAT(I5,I4,I4,I4,I4,I4,I4,I4,12H CRITICAL) 

224 FORMAT ( 19HN0 OUTPUT REQUESTED) 

225 FORMAT ( 45HSSW 1 ON = PUNCH, SSH 2 ON = PRINT, HIT START) 

822 FORMAT! 15, 14, 14, 14, 14.14, 14,14,14. 14, 14, 14, 4. 4,14,14 14) 

823 F0RMAT(I5,I4,I4,I4,I4,I4,I4,I4,I4 14 14 4 4 4 4 4 4 2H 

824 FORMAT ( 21HCARDS OUT OF SEQUENCE) 

825 FORMAT (15, 14, 14, 20X, 14, 14, 14, 14,14,14, 14, I 4, 1 4) 
830 FORMAT { 11HREL0AD DATA) 

PRINT 225 
99 PAUSE 
100 K=l 

KK = 2 

DO 50 N= 1,740 
TIJ(N)«0.0 
TI JNIN)=0.0 
50 TDMP(N)=0.0 
DO 10 N=l,740 

READ lll.INO, JNO.LDUR 
IF (IN0)2,3,4 

3 STOP 1 

2 INO=-INO 
K=2 

PRINT 830 
PAUSE 

4 I=INO 
J=JNO 
TI = I 

n=Ti»ioooo. 

TJ = J 

TI JN(N)=TI+TJ 
DL=LDUR 
DL=DL» 10000. 
TDMP(N)=DL 

IF(TIJ(J)-(TIJ(I) + DU)5,9,9 

5 TI Jf J)=(TI J( I )+DL) 
9 GO TO (10,20) ,K 

10 CONTINUE 

STOP 2 
20 BETA=TI J ( J) /10000. 

DO 30 K=l,740 
30 TIJ(K)=TI J(K)+BETA 

K = l 

M=N 

45 A=TIJN(M) 
B=A/10000. 
I=B 
B = I 

B=B«10000. 
J = A-B 

GO TQ(70,80) ,K 
70 DL=TDMP(M)/10000. 
LO = DL 
DL = LD 

A*TIJ(J) -2E- 
B=A/10000. 



PROGRAM LISTING OF PHASE I 
40K VERSION 'CRITICAL PATH-LESS 



L = H 
B = L 

8=B»10000. 
GAMA = A-[j 
A = T I J ( I ) 
B=A/10000. 
L = B 
8 = L 

B=B»10000. 
BETA=A-B 

I F ( BETA- ( GAMA-DL )) 40, 40, 42 
42 TIJ(I)=B+(GAMA-DL) 
40 M=M-l 

IF(M-1)44,45,45 
44 K = 2 
81 11=0 

JJ = 

KK=1 
52 DO 65 M=1,N 

GO TO 45 
80 IFU-II161, 62,63 

61 STOP 5 

62 IF( J-JJ)64,60,63 
60 STOP 9 

64 STOP 6 

63 1 1 = I 
JJ = J 

EST=TI J( I J/10000. 

IEST=EST 

tST=IEST 

DL=TDMP(M)/10000. 
LD = DL 
DL = LD 

DX = Di.»10000. 
EFT=EST+DL 
FLFT=TIJ(J) 
A=FLFT/10000. 

L = A 
A = L 

A=A»10000. 

FLFT=FLFT-A 

FLST=FLFT-DL 

TFT=FL ST-E ST 

PI J=TIJN(M) +90000000. 

PDEST=(DL»10000. I+EST+90000000. 

PLSEF=(FLST* 10000. ) +EFT+90000000. 

PLFTF=(FLFT» 10000. ) +TFT+90000000. 

I EF T=EFT 

LFT=FLFT 

L ST = FL ST 

LTF=TFT 

GO TO (66,67) ,KK 
66 IF (SENSE SWITCH 2) 866,67 
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866 IF (LTF)68,71,72 
68 STOP 7 

71 PRINT 223,I,J,LD,IEST,LST,IEFT,LFT,ITF 

GO TO 67 

72 PRINT 222,I,J,LD,IEST,LST,IEFT,LFT,LTF 
67 IF(SENSE SWITCH 1)7*, 73 

73 IFIKK-1175,76,77 

75 STOP 8 

76 GO TO 65 

77 PRINT 224 
977 PAUSE 

GO TO 81 

74 READ 825, INO, JN0,LDUR,Ml,Nl,LC,M2,N2,M3,N3,M4,N4 
IF UNO + JNO-I-J) 800,874,800 

800 IF (INO) 874,801,801 

801 PRINT 824 
PAUSE 

GO TO 74 
874 IF CLTF ) 68,211,212 

211 PUNCH 823, I, J,LD, IEST.LST, IEFT ,LFT , LTF ,M1, Nl ,LC , M2 , N2.M3, N3, M4 , N4 

GO TO 65 

212 PUNCH 822,I,J,LD,IEST,LST,IEFT,LFT,LTF,M1,N1,LC,M2,N2,M3,N3,M4,N4 

65 CONTINUE 
GO TO 99 
END 
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PROGRAM LISTING OF PHASE H 



(MAN SCHEDULING) 

C LESS MAN SCHEDULE 

C INPUT REQUIREMENTS - (1) = AVAILABILITY MASTER, LC = 11 

C - (2) = AVAILABILITY CHANGE, LC = 22 

C - ENTER MODIFIERS IN MR, + UR - 

C - (31 = ALL DATA, LC * BLANK 

C - (4) = IF NO DELAY OF JOB, LC = 30 UR 31 

C - 15) = LAST CARD, LC » 31 OR 32 

C SENSE SWITCH SETTINGS FOR OUTPUT REQUIREMENTS 

C - (1) ON - OUTPUT ON TYPEWRITER 

C - OFF - NO TYPEWRITTEN OUTPUT 

C - (2) ON - PUNCH OUTPUT 

- OFF - NO OUTPUT PUNCHED 

DIMENSION L(2l) ,M(2i) ,MC(21) ,AMW(3,70) ,AMP( 3, 70 ) , AM ( 4 ) , H (6 } 

DIMENSION AIWI 70 ) , ANDW I 70 I i A I SW t 70 ) , A I P I 70 ) 

DIMENSION ANDPI 70 ) , AI SP I 70 ) , JF ( 70 ! 

KDN=l 

1998 IFISENSE SWITCH 1)2000,2001 

2000 PRINT 901 
PRINT 902 

901 FURMAT(4HTIM£,24X,iHJ06,5X,lbHDURA E. ST L. ST/) 

902 FORMA T(6X,1 8HCRAFT USE AVAIL//) 
IFISENSE SWITCH 2)2002,5 

2001 I F ( SENSE SWITCH 2)2002,1998 

2002 PUNCH 901 
PUNCH 902 

C ZERO AND INITIALIZE 
5 KDAY=0 
NWL = 
NIP = 
IIISW=1 
1 1 1 1 S= 1 
00 11 J=l,21 
L(J)=0 
MCI J)=0 
11 MIJ)=0 

C REAO AVAILABILITIES, CORRECTIONS, AND ALL DATA 
MT = 2 

20 READ2,I,J,ND,IS,LS,NF,N(1),N(2),LC,N(3),N(4),N<5),N<6) 
2 FORMAT (15, 14, 14, 14, 1 4, ax, 14, 14, 14, 14, 14, 14, 14, 14) 

C CHECK TO SEE IF CARD IS AVAILABILITY MASTER. 

IF(LC-11)25,24,25 
C STORE MANPOWER AVAILABILITIES 

24 MCIMT >=N( 1 ) 
M(MT)=N(2) 
MT=MT+ 1 

GO TU 20 

C CHECK TO SEE IF CARD IS MANPOWER UPDATE CARD 

25 IF(LC-22)33,29,33 

C UPDATE AND CORRECT MANPOWER AVAILABILITIES. 
29 00 28 MK=1,21 

IFIMC(MK)-N(1))28,27,28 
27 M(MK)=M(MK)+N(2) 

IF(MIMK) 17721,20,20 
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7721 N(2)=0 

GO TO 7722 
28 CONTINUE 

33 IFUC-11355,34,355 

34 KDN=ND 
GO TO 20 

C PROCESS DATA. 

355 LCl*LC 

826 1 5 1 = I S 
C SET SWITCHES 

7722 ISWl=l 
HSW=1 

C ADD JOB TO WAITING LINE 
NWL=NWL+1 

IFINWL- 70)36,36,1902 
36 ANDW(NWL)=NO 
WORK=LC 

ANDWINWL)=ANDWINWL)*10000.+WORK 

AIWtNWL)=I 

WORK=J 

A I W ( NWL ) =AI W ( NWL ) • 10000. +WORK 

AISWINWL)=IS 

WORK=LS 

AISWINWL )=AISW(NWL)»10000.+WORK 

DO 40 1=1,3 

J=2»l-1 

AMW(I,NWL)=NU) 
WORK=N( J+l) 
40 AMW(IiNWL) = AMW { I , NWL ) » 10000 WORK 
IF (LC-30 17231,7231, 140 
7231 IF(KDAY-ISl) 140,20,20 
C CAN A WAITING JOB START 
80 IISW=2 
JAG=l 

IF(NWL)1250, 1250,81 
81 00 85 LL=JAG,NWL 
ISW*AISW(LL)/10000. 
IF(ISW-K0AY)789O,88,85 
7890 IF( IIISW-H85,85,88 
C CHECK TO SEE IF JUB CAN LOGICALLY BEGIN. 
88 DO 86 J=1,NWL 

IW=AIW(LL)/10000. 

JW=AIW( J ) 

IF ( I W-JW) 86,85,86 

86 CONTINUE 
IFINIPI4282, 4282, 862 

862 DO 87 J=1,NIP 
JW=AIP1 J) 
IF(IW-JW)87,85,87 

87 CONTINUE 

4282 ND=ANDW(LL)/10000. 
IF (ND) 7867,7867,82 
C IS ENOUGH MANPOWER AVAILABLE TO START A JOB 
82 DO 1186 1=1,3 

MCW=AMW( I , LL ) / 10000. 
MNW=AMW( I , LL ) 
DO 84J=1,21 
IFIMCW-MCl J) 184,83,84 
84 CONTINUE 
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83 IF(MNW-MU) 11186,1186,85 
1186 CONTINUE 

GU TO 90 
85 CONTINUE 

GO TO 1250 

90 NWL=NWL-1 
NIP=NIP+ 1 

IF(NIP-70)91,91,1902 
C ADJUST MANPOWER 

91 00 94 1=1,3 
MCW=AMW( 1 , LL ) / 10000. 
MNW=AMW( I ,LL) 

DO 92 J=l,21 
IF(MCW-MCU) 192,93,92 

92 CONTINUE 

93 M( J)=M(J)-MNW 

94 L( J)=L( Jl+MNW 

C COMPUTE FINISH DATE 

NDW=ANOW(LL)/10000. 

JF(NIP)=KDAY*NDW 
C PLACE JOB IN PROGRESS 

AIP(NIP1=AIW(LL) 

IW=ANOW(LL) 

IF ( IW-199)98,98,97 

97 ANDW(LLl=ANDW(LL)-300. 

98 AN0P(NIP)=ANDW<LLH-100. 
AISP{NIP)=AISW(LL) 
D0999 1-1,3 

999 AMP ( I ,NI P 1 =AMW ( I , LL 1 
GO TO 129 
C MOVE UP WAITING LINE 

7867 NWL=NWL-1 
JW= AIWILL1 
1 1 1 SW=2 

IFISENSE SWITCH 1)7868,7869 

7868 PRINT 4.K0AY, I W, JWiND 

7869 I F ( SENSE SWITCH 2) 7870,129 

7870 PUNCH 4.K0AY, IW, JW.NO 

129 IF(LL-NWL)130, 130, 1140 

130 00 135 I=LL,NWL 
AIWI I )=AIWt I+l) 
ANOWI I ) =ANDW ( I +1 1 
AISW(I)=AISW(I+1) 
DO 1135 J=l,3 

1135 AMW(J,I)=AMW(J,I+1) 
135 CONTINUE 
JAG=LL 

GO TO (140,81),IISW 
1140 GO T0(80,1250),IISW 
C IS A CRITICAL JOB WAITING 
140 LL=1 

IF(NWL)80,80,9993 
9993 DO 145 I=LL,NWL 
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COMPUTER 
TECHNOLOGY 



LSM * AISH(I) 
9992 IF (LSW-KDAY 17881, 141, 145 
7881 IFUUSH-l)U5il*5tl41 

141 LL*I 
C YES 

C CHECK TO SEE IF JOB CAN LOGICALLY BEGIN 
00 148 J*1,NWL 
IW*AIW(LL}/10000. 
JU'AIW(J) 

IF(IW-JW)148,145,148 

148 CONTINUE 

IF (NIP) 4541 ,4541 ,9991 
9991 00 149 J*1,NIP 
JW=AIPCJ) 

IFUW-JW)149,145,149 

149 CONTINUE 

4541 ND*AN0W(LL)/10000. 
USW*1 

IF(ND)7867, 7867,541 
C CAN THE WAITING CRITICAL JOB START 
541 00 142 IK*1,3 

MC«=AMWt IK.LD/10000. 

MNU>AMU( IK.LLI 

00 143 J=l,21 

IF (MCW-MC ( J ) ) 143, 144, 143 

143 CONTINUE 

144 IFIMNW-MCJ) 1142,142,251 

142 CONTINUE 
C YES 

IISW=l 
GO TO 90 

C CAN HEN BE RELEASEO FOR CRITICAL JOB BY A JOB IN PKOGESS 

251 00 260 K=1,NIP 
LSP*AISP(K) 

IF(LSP-LSW)260,260,252 
C IS MANPOWER IN PROPER CLASS 

252 00 255 IAA*1,3 
MCP=AHP( IAA,K)/10000. 
MNP=AMP( IAA.K) 
IF(MCP)2255, 255, 2255 

2255 IFIMCW-MCP>255,254,255 
255 CONTINUE 
GO TO 260 
C CAN JOB BE DELAYED 
254 IW=ANDP(K) 

IFUW-991262,262,261 

261 IW=IW-100 

262 IFtIW-301253,260,253 

253 IFUW-3l)8255, 260, 8255 
C YES 

8255 KK*K 

GO TO 270 

C JOB IN PROGRESS WILL NOT BE DELAYED 

260 CONTINUE 
C CRITICAL JOB CAN NOT START 

145 CONTINUE 
GO TO 80 

C RELEASE MANPOWER -31_ 
270 00 870 1*1,3 



MCP* AMP ( I ,KK)/10000. 

MNP=AMP ( I , KK > 

DO 272 J=l,21 

I F ( MCP-MC ( J ) ) 272 , 271 , 272 

271 Ml J)*MI Jl+MNP 
870 L( J1=L( Jl-MNP 

272 CONTINUE 

C STORE DELAYED JOB IN WAITING UUEUE 
C ENLARGE WAITING QUEUE 

I I ISW = 2 

NWL-NWL+ 1 

IF(i\iWL-70)277, 277, 1902 
277 IW=NWL-l 

00 39 1=1,1 W 

IJKMNWL-I+1) 

IJKL=(NWL-I) 

AlWt I JK)*AIW( IJKL) 

ANDWI I JK)=ANOW(I JKL) 

AlSWd JK)=AISW< I JKL) 

DO 41 J=l,3 
41 AMWI J, I JK)=AHW(J,IJKL> 
39 CONTINUE 

AIWI 1)*AIP(KK) 

IW=ANDPIKK)/10000. 

AtWS=IW 

AND=JF (KK)-KDAY 

AISW(1)=AISP(KK)-AN0+AIWS 

IW=ANDPIKK) 

IH IW-991274, 274,273 

273 AIWS=IW-300 

274 AIWS=IW+200 

275 ANOW ( 1 1 = AND* 10000. + A I WS 
DO 276 1*1,3 

276 AMU(I,1)=AMP(I,KK) 
LL=LL+ 1 

C SET SWl*2 
ISWl«2 

C MOVE UP JOBS IN PROGRESS 

300 JJJ=1 

301 NIP*N[P-1 
IF(KK-NIP)302,302,312 

302 00 J10 K=KK,NIP 
AIP(K)=AIP(K*1) 
ANDP(K)=ANDP(K+1) 
AISP(KI=A1SP(K+1) 
JF(K)=JFtK+l) 

00 303 1*1,3 

303 AMP(I,K)=AMP(I,K+l) 
310 CONTINUE 

312 GO TO(9991,200),JJJ 
C HAS A JOB-ENDEO ON CURRENT DATE 
200 IF(NIP)208,208,212 
212 DO 210 K*1,NIP 
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I FtKDAY-JF(K) 1210,205,205 
210 CONTINUE 

208 IFILC-3015208, 5208, 140 
5208 IF(KDAY-ISl) 140,20,20 
C YES 

205 KK*K 
C RELEASE MANPOWER 
DO 2241 = 1,3 
MCP=AMP( I ,KK)/10000. 
MNP=AMP( I ,KK) 
DO 223 J=l,21 
IFtMCP-MCI J) 1223,221,223 

223 CONTINUE 

221 M( J)=M( Jl+MNP 
L( J)=L( Jl-MNP 

224 CONTINUE 

C PRINT/PUNCH FINISHED JOB 
230 IP=AIP(KK) /10000. 
II ISW=2 
IIIIS=2 
JP=AIP(KK) 
ND=ANDP ( KK ) / 10000. 
6858 IF1SENSE SWITCH 1)241,242 

241 PRINT 4 ,KDAY, IP, JP.ND 

4 FORMAT ( / 14, 12X, 6HF I N I SH, 16,16,16) 
DU 247 1=1,3 
MCP=AMP( I , KK ) / 10000. 
MNP=AMP( I,KK) 
IF(MCP)242,242,247 
247 PRINT 105,MCP,MNP 

242 I F ( SENSE SWITCH 2)243,244 

243 PUNCH 4, KDA Y , I P , JP ,ND 
DO 245 1=1,3 
MCP=AMP( I,KK)/10000. 
MNP=AMP( I,KK) 
IF(MCP)244,244,245 

245 PUNCH 105,MCP,MNP 
C MOVE UP JOBS IN PROGRESS 

244 JJJ=2 

GO TO 301 
C HAVE ALL JOBS FINISHED 

1250 1 1 I SW= 1 

1258 IFILC-3011270, 1270, 1251 

1251 IFINWD1252, 1252, 1270 

1252 IF1NIP11253, 1253, 1270 
C UPDATE CLOCK 

1270 IF1LC-3011500, 1500, 1502 
C DOES T I ME=START TIME OF JOB READ IN 
1500 IF(KDAY-IS1)1502,20,20 
1502 IF <NIP>295,295,96 
C PR I NT/ PUNCH JOB START 
96 00 113 LL=1,NIP 
L SP--ANDP ( LL ) 
IF (LSP-99) 113, 113,99 
99 ANDP(LL)= ANDPILD-100. 
LSW=AISPILL) 
IF (LSW-KUAY) 121 , 121, 122 

121 LSW=-LSW -33' 

122 IW=AIP(LL)/10000. 



JW=AIP(LL) 

NU=ANDP(LL)/10000. 

ISP=AISP(LL)/10000. 

I I I I S-2 

DO 101 J=l,3 

I=J»2-1 

N( I >=AMP(J,LL>/10000. 
101 N( I+1)=AMP( J,LL) 

IFISENSE SWITCH 1)115,117 
115 PRINT 1,KDAY,IW,JW,N0,ISP,LSW 

1 F0RMATI/I4.7H ST ART 1 1 X , I 6 , I 6 , 16 , 16, 1 6 ) 

DU 104 1=1,6,2 

IF(N( I ) ) 117, 117, 104 

104 PRINT 105,N( I 1 , N ( I + I > 

105 F0RMATI6X,I6,I6,I6) 

117 IMSENSb SWITCH 2)119,113 
119 PUNCH 1,KDAY,IW,JW,ND,ISP,LSW 

DO 106 1=1,6,2 

IF (NI I )) 113, 113, 106 

106 PUNCH 105, N( I I ,N( I + l) 
113 CONTINUE 

C PRINT/PUNCH JOB DELAY 

295 IF (NWL) 1501 , 1501 ,296 

296 DO 294K=1,NWL 
I W=ANDW ( K ) 

IF ( IW-199>294,294,297 

297 IW=AIW(K)/10000. 
ANDW(K)=ANDW(K)-200. 
JW=AIW(K) 

DO 298 J* 1,3 
I=J»2-1 

Nil )=AMW( J,K)/10000. 

298 N1I+1)=AMW< J,K) 
IIISW=2 
IIIIS=2 

IFISENSE SWITCH 1)291,292 

291 PRINT 3,K0AY,IW,JW 

3 F0RMAT(/I4,7X,5HDELAY,6X,I6,I6) 
DO 107 1=1,6,2 
IF(N( I ) 1292,292,107 

107 PRINT 105, N( I ) ,N( I+l 1 

292 I F ( SENSE SWITCH 2)293,294 

293 PUNCH 3,KDAY,IW,JW 
DO 108 1=1,6,2 
IF1NI I ) 1294,294, 108 

108 PUNCH 105, N( I ) ,N( I+l) 

294 CONTINUE 

1501 GO T0(3334,3335),III1S 
3335 HIIS=1 

I F ( SENSE SWITCH 1)299,400 

299 PRINT 3333, KDAY 

3333 FORMAT!//, 14, 15H LABOR SUMMARY) 
J=MT-1 
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00 109 1*2, J 
109 PRINT 105 ,MC(!},Ml)i»MI) 
PRINT 3333 

400 IF (SENSE SWITCH 2)401.3334 

401 PUNCH 3333.K0AY 
00 402 I»2,MT 

402 PUNCH 105,MCll),L(I),M(I) 
PUNCH 3333 

3334 KOAY*KOAY*KDN 
■i GO TO 200 
C YES— PROJECT COMPLETE 
1253 PRINT 7 

7 FORMAtj 16HPR0JECT COMPLETE) 
I F ( SENSE SWITCH 2)1255,1260 
1255 PUNCH 7 
1260 PAUSE 
KON »1 
GO TO 1998 

1901 FORMAT (I9HQUEUE CAP. EXCEEDED) 

1902 PRINT 1901 
PAUSE 

GO TO 1998 
END 
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PBOGRAM LISTING OF PHASE I 



60K VERSION (CRITICAL PATH-LESS) 

LESS - CRITICAL RATH SCHEDULING - PART 2 

DIMENSION TIJl 1400) ,TIJN< 1400) ,TOMP( 1400) 
111 FORMAT ( 15,14,14) 

222 FORMAT! 15,14,14, 14,14,14,14, 14) 

223 F0RMAT115,I4,14,14,I4,I4,14,I4.12H CRITICAL) 

224 FORMAT ( 1 9HN0 OUTPUT REQUESTED) 

225 F0RMATI45HSSW 1 ON = PUNCH, SSW 2 ON « PRIST, HIT STAKT) 

822 FORMAT! 15,14,14,14,14,14, 14, 14,14, 14,14,14, 14, 14, 14, 14, 14) 

823 FORMAT ( 15, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14 , 14, 14, 14, 14, 14, 2H • ) 

824 FORMAT 1 21HCARDS OUT OF SEQUENCE) 

825 FORMAT ( 15,14, 14.20X, 14, 1 4, 1 4, 14, 14, 14 , 14, I 4, 14 ) 
830 FORMAT ( 11HRELOA0 DATA) 

PRINT 225 
99 PAUSE 
100 K=l 

KK«2 

DO 50 N= 1,1400 
TI J(N)«0.0 
TIJNCN)=0.0 
50 TDMP(N)=0.0 

DO 10 N» 1,1 400 
READ 111,IN0,JNU,LDUR 
IF (IN0)2,3,4 

3 STOP 1 

2 IN0=-1N0 
K-2 

PRINT 830 
PAUSE 

4 I=INO 
J = JNO 
T I = I 

TI=TI»10000. 
TJ-J 

TI JNI N) ■ T I *T J 
DL»LDUR 
DL»DL» 10000. 
TDMP(N)=DL 

IF1II Jl J)-(TI J(I l+DL) )5,9,9 

5 T I J ( J ) = < T I J ( I ) ♦QL ) 
9 GO TO t 10,20), K 

10 CONTINUE 

STOP 2 
20 BE TA*TIj(J)/ 1OOO0. 

DO 30 K» 1,1400 
30 TI J(K)=TI J(K)*BETA 

K=l 

M=N 

45 A*TIJNIM) 
B=A/10000. 
I=B 
B«I 

B=B»10000. 
J»A-B 
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GO TQI70.80) ,K 
70 DL=TDMP(M)/10000. 
LD=DL 
OL=LD 
A = TI J ( J ) 
B=A/10000. ' 
L = B 
B = L 

B=B»10000. 

GAMA=A-B 

A=TIJ(I) 

B=A/10000. 

L = B 

B = L 

B=B»10000. 
BETA=A-B 

IF<BETA-(GAMA-DL) > 40, 40, 42 
42 TIJCI ) =B+ ( GAMA-DL ) 
40 M=M-1 

IF(M-1)44,45,45 
44 K=2 
81 11=0 

JJ=0 

KK=1 
52 00 65 M=1,N 

GO TO 45 
80 IF( I-II )61,62.63 

61 STOP 5 

62 IF(J-JJ)64,60 > 63 
60 STOP 9 

64 STOP 6 

63 11=1 
JJ = J 

EST = TIJ( I 1/10000. 

IEST=EST 

EST=IEST 

DL=TOMP(M)/10000. 

LO = DL 

DL=L0 

DX=OL»10000. 
EFT=E ST + DL 
FLFT=TI Jt J) 
A=FLFT/10000. 
L=A 
A = L 

A=A«10000. 

FLFT=FLFT-A 

FLST = FLF T-DL 

TFT=FLST-EST 

PIJ=T I JN(M) +90000000. 

PDEST=(DL* 10000. l+EST+90000000. 

PL SEF= ( F L ST* 10000. ) +E FT +9000 0000. 

PLFTF= ( F LF T» 10000. ) +TFT+ 9000 0000. 

I EFT=EFT 

LFT=FLFT 

LST=FLST 

LTF=TFT 

GO TO (66,67),KK 
66 IF (SENSE SWITCH 2) d66,67 -37- 



866 IF (LTF)68,71,72 
68 STOP 7 

71 PRINT 223, I, J , LD , I EST , LST , I EF T , LFT , LTF 

GO TO 67 

72 PRINT 222, I , J ,LD , I EST , LST , I EFT, LFT, LTF 
67 IF1SENSE SWITCH 1)74,73 

73 IF(KK-l) 75,76,77 

75 STOP 8 

76 GO TO 65 

77 PRINT 224 
977 PAUSE 

GO TO 81 

74 READ 825,IN0,JN0,LDUR,Ml,Nl,LC,M2,N2,M3,N3,M<.,^4 
IF UNO + JNO-I-J) 800,874,800 

800 IF (INO) 874,801.801 

801 PRINT 824 
PAUSE 

GO TO 74 
874 IF (LTF) 68,211,212 

211 PUNCH 823,l,J,LD,IEST,LST,IEFT,LFT,LTF,Ml,Nl,LC,M2,N2,M3,Ni,M4,N<, 

GU TU 65 

212 PUNCH 822, I , J , LD , I EST , L ST , I EFT , LFT , LTF , M 1, N I , LC , M2 , N2 , Mi, Hi , M4 ,N<t 
65 CONTINUE 

GO TO 99 
END 
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PROGRAM LISTING OF PHASE II 



C LESS HAN SCHEDULE (MAN SCHEDULING) 

C INPUT REQUIREMENTS - (11 = AVAILABILITY MASTER, LC - 11 

C - 12) = AVAILABILITY CHANGE » LC « 22 

C - ENTER MODIFIERS IN MR, ♦ OR - 

C .^.(3) * ALL DATA, LC * BLANK 

C - (4) = IF NO DELAY OF JOB, LC - 30 OR 31 

C j- (5) » LAST CARD, LC = 31 OR 32 

C SENSE SWITCH SETTINGS FOR OUTPUT REQUIREMENTS 

C - (1) ON - OUTPUT ON TYPEWRITER 

C - OFF - NO TYPEWRITTEN OUTPUT 

C - (2) ON - PUNCH OUTPUT 

C - OFF - NO OUTPUT PUNCHED 



DIMENSION L(21),M(21) ,MC(21) , AHW ( 4, 180 ) , AMP ( 4, 1 70 ) , AM (4) ,N(8) 
DIMENSION AIW(180) ,ANDW(180) , A I SW 1 180 ) , AI P( 170) 
DIMENSION ANDPU70) , AI SPI 170) , JF 1 170 ) 
KDN= I 

C PRINT/PUNCH HEADINGS 
1998 PRINT 906 
906 FORMAT ( 32HSW1 UN TO PRINT , SW2 ON TO PUNCH) 
PAUSE 

IFISENSE SWITCH 1)2000,2001 

2000 PRINT 901 
PRINT 902 

901 F0RMAT(4HTIME,24Xj3HJ0B,5X,l8HDURA E. ST L. ST/) 

902 F0RMATI6X, 18HCRAFT USE AVAIL//) 
IF ( SENSE SWITCH 2)2002,5 

2001 IFISENSE SWITCH 2)2002,1998 

2002 PUNCH 901 
PUNCH 902 

C ZERO AND INITIALISE 
5 KDAY«0 
NWL=0 
NIP»0 
ISE = 
NFF=0 
IIISW=1 
1 1 1 1 S= 1 
DO 11 J=l,21 
L ( J ) =0 
MC( J)=0 
11 MU)=0 

C READ AVAILABILITIES, CORRECTIONS, AND ALL DATA 
MT=2 

20 READ2,I»J,ND,IS,LS,NF,N(l),N(2),LC,N(3),N<4>,N<5f,N(6),rt(7) ,N(8) 
2 FORMAT! 15,14,14, 1 4,14, 8X, 14, 14, 14, 14, 14, 14, 14, 14,14, 14) 

C CHECK TO SEE IF CARD IS AVAILABILITY MASTER. 
IF(LC-U)25,2l,25 

21 IF(MT-22)24,22,22 

22 PRINT 23 
PAUSE 

GO TO 1998 

23 FORMAT (20HNO» CRAFTS EXCEED 20) 
C STORE MANPOWER AVAILABILITIES 

24 MC(MT)«=N(1) 
M(MT)=N(2) 
MT=MT+1 

GO TU 20 

C CHECK TO SEE IF CARD IS MANPOWER UPDATE CARO 

25 IFILC-22133,29,33 



C UPDATE AND CORRECT MANPOWER AVAILABILITIES. 
29 00 28 MK*l,2l 

IFIMC (MK)-N(1>)28,27,28 

27 M(MK)=M(MK)+N(2) 
IF(MtMK) ) 7721, 20, 20 

7721 Nt2)=0 

I I I SW=2 
GO TO 7722 

28 CONTINUE 
PRINT 32 
PAUSE 

GU TO 1900 

32 FORMAT (28HCORR. CARD HAS ILLEGAL CRAFT) 

33 IF(LC-1)355,34,355 

34 KDN=ND 
GO TO 20 

PROCESS DATA. 
355 IF! IS-ISE)800,610,820 
810 IFCNF-NFF)800,820,820 

820 I S E = I S 
NFF-NF 
LCl=LC 

DO 823 II»l,8,2 

00 821 JJ=l,21 

IFtNdl )-MC( J J) 1821,822,821 

821 CONTINUE 

822 IF (Nl 1 1 + 1) -Ml JJI-L (J J) ) 823,823,824 

823 CONTINUE 
GO TO 826 

824 PRINT 825 
PAUSE 

GO TO 1900 

825 FORMAT ( 22HT00 MANY MEN REQUESTED) 

826 I S i = I S 

C SET SWITCHES 

7722 ISW1=1 

1 I SW = 1 

C ADD J03 TO WAITING LINE 
NWL-NWL+l 

IF(NWL-l»0)36,36,19O2 
36 ANDWINWL )*ND 
WORK'LC 

ANDWCNWL)=ANDWtNWL)»lOOOO.+WORK 

AIW(NWL)=l 

WURK=J 

AIW(NWL)=AIW(NWL)»10000.+WORK 

AISWINWD'IS 

WORK»LS 

AISW(NWL)=AlSWtNWL)»l000O.+WORK 

00 40 1=1,4 

J=2*I-1 

AMWt I ,NWL)=N! J) 
WORK«N( J+l) 
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40 AMWU,NWL)=AMWtl,NWLI»10000.*H0RK . 
IF <LC-30)7231, 7231, 140 
7231 IF(KDAY-lSl)140,20,20 
C CAN A WAITING JOB START 
80 IISW=2 
JAG=1 

IF(NWL)1250,1250,8l 
81 00 85 LL» JAG,NWL 
ISW=AISW(LL)/10000. 
IF(ISW-KDAY)7890,88,85 
7890 IFUIISW-1)85,85,88 
C CHECK TO SEE IF JOB CAN LOGICALLY BEGIN. 
88 DO 86 J«1,NWL 

IW=AIW(LL)/10000. 
JW- AI W ( J ) 
IF(IW-JW)86,85,86 

86 CONTINUE 
IFINIP14282, 4282, 862 

862 00 87 J=1,NIP 
J W=A I P I J ) 
IF(IW-JW)87,85,87 

87 CONTINUE 

4282 NO=ANDW(LL)/10000. 
IF(ND)7867, 7867,82 
C IS ENOUGH MANPOWER AVAILABLE TO START A JOB 

82 00 1186 1=1,4 
MCW=AMWI I, LLJ/10000. 
MNW=AMW(I,LLJ 

DO 84J=1,21 
IFIMCW-MCI J) 184,83,84 

84 CONTINUE 

PRINT llll.AIWILL) 
PAUSE 

GO TO 1998 
1111 FORMAT ( 18HERR0R IN CRAFT N0..F9.0) 

83 IFIMNW-M(J)) 1186,1186,863 
1186 CONTINUE 

GO TO 90 

C SET START DATE EQUAL TO DAY MANPOWER iECAME A RESTRICTION 

863 IF(ISW)85,865,865 
865 AKDAY=KDAY 

IW=AISWUL) 
AIWS'IW 

AI SW(LL) = (-AKDAY)» 10000. -AlWS 

85 CONTINUE 
GO TO 1250 

90 NWL=NWL-1 
NIP=NIP*1 

IFINIP-170191,91,904 
C ADJUST MANPOWER 

91 DO 94 1=1,4 
MCW=AMW(I,LL)/10000. 
MNW=AMW(I,LL) 

DO 92 J=l,2l 

I F ( MCW-MC ( J ) (92,93,92 

92 CONTINUE 

93 M{ J)=M( J)-MNW 

94 L( J)=L< J)*MNW _41_ 
C COMPUTE FINISH DATE 



NDW=ANDW(LL)/10000. 
JF INIP)=KDAY*NOW 
C PLACE J03 IN PROGRESS 
AIP<NIP)=AIW«LL) 
I rt=ANDW ( LL ) 
IF ( IW-199)98,98,97 

97 ANDH(LL)=ANDW(LL)-300. 

98 ANDP(NIP)=ANDW(LL)+100. 
AISP(NIP)-AISWILL) 
D0999 1 = 1,4 

999 AMPU,NIP)=AMW(I,LL) 
1.0 TO 129 
C MOVE UP WAITING LINE 

7867 NWL=NWL-1 
JW= AIW(LL) 
I I I SW = 2 

IFISENSE SWITCH 1)7868,7869 

7868 PRINT 4 , KDA Y , I W, JW, NO 

7869 I F ( SENSE SWITCH 2) 7870,129 

7870 PUNCH 4,K0AY,IW,JW,ND 

129 IF(LL-NWL) 130,130,1140 

130 DO 135 I=LL,NWL 
AIWI I )=AIW< 1+1) 
ANOWI I )=ANDW( 1*1) 
AISW( I)=AISWU*l> 
DO 1135 J=l,4 

1135 AMW1 J, I ) =AMWI J, 1*1) 
135 CONTINUE 
JAG=LL 

GO TO (140,81),IISW 
1140 GU T0(80,1250),HSW 
C IS A CRITICAL JOB WAITING 

140 LL=1 
IF(NWL)80,80,9993 

9993 DU 145 I=LL,NWL 
IFIAISWI I) 19994,9995,9995 

9994 LSW=-AISwlI ) 
GO T09992 

9995 LSW = AISWII) 

9992 IF(LSW-KDAY)7881,141,145 
7881 IFUIISW-11145,145,141 

141 LL=I 
C YES 

C CHECK TO SEE IF JOB CAN LOGICALLY BEGIN 
DO 148 J=1,NWL 
IW=AIW(LL) /10000. 
JW=A I W ( J ) 

IF ( IW-JWU48, 145,148 
148 CONTINUE 

IF (NIP) 4541 ,4541 ,9991 
9991 DU 149 J=1,NIP 
JW=AIP{ J) 

IF(IW-JW)149,145,149 
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149 CONTINUE 
4541 ND»ANDWUL)/10000. 
IISW'l 

IFIND17867, 7867, 541 
C CAN THE WAITING CRITICAL JOB START 
541 DO 142 IK»1,4 

*CW»AMW( IK,LL)/10000. 

MNW=AMW( IK.LLI 

DO 143 J=l,21 

I F ! HCW-MC ( J ) ) 143, 144, 143 

143 CONTINUE 

144 I F ( MNW-M (J) )1 42, 142, 251 
142 CONTINUE 

C YES 

1 1 SW= 1 

GO TO 90 

C CAN MEN BE RELEASED FOR CRITICAL JOB §Y A JOB IN PRGGESS 

251 DO 260 K=1,NIP 

C IS JOB IN PROGRESS MORE CRITICAL THAN JO* IN WAITING 
IF(AISPIK) 19996, 9997, 99*7 
9994 LS*»-AISP(K) 

GO TO 9998 
9997 LSP»AISP(K) 
999i IF(LSP-LSW)260,260,252 
C IS MANPOWER IN PROPCR CLASS 

252 DO 255 IAA-1,4 
MCP=AMP< IAA,K)/10000. 
MNP=AHP ( I AA ,K ) 
IF(MCP)2255, 255, 2255 

2255 IF(MCW-MCP)255, 254,255 
255 CONTINUE 
GO TO 260 
C CAN JOB BE OELAYEO 
254 I W= ANOP ( K ) 

IFUW-99)262,262,261 

261 IW=IW-100 

262 IF< IW-30)253,260,253 

253 IF(IW-31)B255, 260, 8255 
C YES 

8255 KK=K 

GO TO 2 70 

C JOB IN PROGRESS WILL NOT BE DELAYED 

260 CONTINUE 
C CRITICAL JGB CAN NOT START 

145 CONTINUE 
GO TO 80 

C RELEASE MANPOWER 

270 DU 870 1=1,4 
MCP=AMP( I ,KK) /10000. 
M(4P = AMP ( I i KK ) 

DU 272 J=l,21 
IFIMCP-MCl J) 1272,271,2 72 
272 CONTINUE 

271 Ml J)=M( Jl+MNP 
870 L( J)=L( Jl-MNP 

C STORE DELAYED JOB IN WAITING QUEUE _< 
C ENLARGE WAITING QUEUE 

II I SW = 2 

NhL = NWL+ 1 



IF (NWL-l 80) 277,277, 190? 

277 Ita=NWL-l 

DO 39 1 = 1, I W 

IJK=(NWL-H-l) 

IJKL=(NWL-I ) 

AIW(IJK)=AIWIIJKL) 

ANDW( I JK)=ANDW( I JKL) 

Ai :>W( I JK)=AI SW( I JKL) 

DO 41 J=l,4 
41 AMW(J,IJK)=AMW(J,IJKL) 
39 CONTINUt 

AIWU)=AIP(KK) 

IW=ANDPIKK) /10000. 

AIWS=IW 

AN0=JF (KKI-KDAY 
IFIAISP(KK) 12731, 27 32, 2752 

2731 AISwtl)=-AlSP(KK)-AND+AIWS 
GO TO 278 

2732 AISwl 1)=AISPIKK)-AND*AIWS 

278 IW=ANDP(KK) 

IF ( IW-99)274,274,273 
273 AIWS=IW-100 

GOTO 275 
27* AIWS=IW+200 

275 ANDW(1)=AND»10000.+AIWS 
DO 276 1=1,4 

276 AMW ( I , 1 )=AMP< I ,KK 1 
LL=LL+1 

C SET SWl=2 
ISW1=2 

C MOVE UP JOB S IN PROGRESS 

300 JJJ=1 

301 NIP=NIP-1 
IF(KK-NIP)302,302,312 

302 OU 310 K=KK,NIP 
AIP(K)=AIP(K+1) 
ANDP(K)=ANDP(K+11 
AISP(K)=AISP(K+1) 
JF(K)=JFIK+1I 

00 303 1=1,4 

303 AMP(I,K)=AMP(I,K+11 
310 CONTINUE 

312 GO TO 19991, 200), JJJ 
C HAS A JOB-ENDED ON CURRENT OATE 
200 IF(NIP)208,208,212 
212 DU 210 K=1,NIP 

IF(KOAY-JFU) 1210,205,205 
210 CONTINUE 

208 IFILC-3015208, 5208, 140 
5208 IF(KDAY-ISl) 140,20,20 
C YES 

205 KK=K 
C RELEASE MANPOWER 



OU 2241=1,4 
MCP=AMP( I,KK)/10000. 
MNP-AMPtl,KK> 

00 223 J=l,21 

I F ( MCP— MC ( J ) 1223,221,223 

223 CONTINUE 

221 Ml J)=M( JH-MNP 
LI J)=L( Jl-MNP 

224 CONTINUE 

C PRINT/PUNCH FINISHED JOB 
230 IP=*IP(KK)/10000. 
1 1 1 SW=2 
IIIIS-2 
JP=AIPIKK) 
ND=ANDP(KK) /10000. 
6858 I F ( SENSE SWITCH 1)241,242 

241 PRINT 4 ,KDAY, IP, JP,NO 

4 FORMAT I/I4,12X,6HF INI SH, 16, 16, 14) 
DO 247 1=1,4 
MCP=AMP( I ,KK ) / 10000. 
MNP=AMPt I ,KK) 
IF(MCP)242,242,247 
247 PRINT 105, MCP, MNP 

242 IF (SENSE SWITCH 2)243,244 

243 PUNCH 4, KDAV , I P, JP, NO 
DO 245 1=1,4 
MCP=AMP( 1 ,KK)/10000. 
MNP= AMP ( I , KK ) 
IF(MCP)244,244,245 

245 PUNCH 105,MCP,MNP 
C MOVE UP JOBS IN PROGRESS 

244 JJJ=2 

GO TO 301 
C HAVE ALL JOBS FINISHED 

1250 1 1 1 SW= 1 

1258 IF(LC-30)1270, 1270, 1251 

1251 IFINWD1252, 1252, 1270 

1252 IF(NIP)1253, 1253, 1270 
C UPDATE CLOCK 

1270 IFILC-30) 1500,1500,1502 
C DOES TIME=START TIME OF JOB REAO IN 
1500 IF(KDAY-ISl) 1502 ,20,20 
1502 IF(NIP)295,295,96 
C PRINT/PUNCH JOB START 
96 DO 113 LL-l.NIP 
LSP=ANDP(LL) 
IFILSP-99) 113,113,99 
99 ANDP ( LL ) = ANDP ( LL )— 100. 
IFIAISPILL) ) 123, 124,124 

123 LSW=-AISP1LL) 
GO TO 125 

124 LSW=AISP(LL) 

125 IF(LSW-KDAY)121,121,122 

121 LSW=-LSW 

122 IW=AIP(LL)/10000. 
JW=AIP(LL) 

ND=ANDP(LL 1/10000. -45- 
ISP=AISP(LL)/10000. 

1 I I I S=2 



DU 101 J=l,4 

I = J*2- 1 

N( I )=AMP( J.LD/10000. 
101 N(I+1)=AMP( J,LL) 

IFISENSE SWITCH 1)115,117 
115 PRINT 1,KDAY,IW,JW,ND,ISP,LSW 

1 FURMAT(/I4,7H START1 IX , 16 , 1 6, 1 6 , 1 6 , 1 6 ) 

DO 104 1=1,8,2 

IFINII) 1117,117,104 

104 PRINT 105, N( I ) ,N( 1+1) 

105 F0RMAT(6X,I6,I6,I6) 

117 IFISENSE SWITCH 2)119,113 
119 PUNCH 1,KDAY,1W,JW,ND,ISP,LSW 

DU 106 1=1.8,2 

IFIN(I))113,113,106 

106 PUNCH lOi.NIl) ,N(I*l) 
113 CONTINUE 

PRINT/PUNCH JOB DELAY 

295 IFINWD1501, 1501, 296 

296 DU 294K=1,NWL 
IW=ANDW(K) 

IF(IW-199)294,294,297 

297 IW=AIW(K)/10000. 
ANDW(K)=ANDW(K)-200. 
JW=AIW(K) 

DO 298 J=l,4 
I=J»2-1 

N(I)=AMW(J,K) / 10000. 

298 N( I+1)=AMW( J,K) 

I I I SW = 2 
1 1 1 1 S=2 

IFISENSE SWITCH 1)291,292 

291 PRINT 3,KDAY,IW,JW 

3 FURMAT(/I4,7X,5HDELAY,6X,I6,I6) 
DO 107 1=1,8,2 
IF(N(I))292,292,107 

107 PRINT 1Q5,N(I),N(I+1> 

292 IFISENSE SWITCH 2)293,294 

293 PUNCH 3,KUAY,IW,JW 
00 108 1=1,8,2 
IF(N(I))294,294,108 

108 PUNCH 105,NU),NII + 1) 

294 CONTINUE 

1501 GO 70(3334,3335) ,IIIIS 
3335 IIIIS-l 

IFISENSE SWITCH 1)299,400 

299 PRINT 3333 , KDAY 

3333 FORMAT (//,I4,15H LABOR SUMMARY) 
J=MT-1 

DO 109 1=2, J 

109 PRINT 105 ,MC(I),L(I),M(I) 
PRINT 3333 

400 I F I SENSE SWITCH 2)401,3334 

-46- 



401 PUNCH 3333, KDAY 



DO 402 1=2, MT 
402 PUNCH 10b,MC(I),L(I),MlI) 




PUNCH 3333 
3334 KDA Y=KDAY+KDN 



GO TO 200 
C YES-PROJECT CUMPLETE 
1253 PRINT 7 

7 FORMAT ( 16HPR0JECT COMPLETE) 
I F ( SENSE SWITCH 2)1255,1260 
1255 PUNCh 7 
1260 PAUSt 
KDN = 1 
GO TO 1998 
800 PRINT 803 

803 FORMAT (20HCARD OUT OF SEQUENCE ) 

1900 PAUSE 

IFISENSE SWITCH 3)1998,20 

1901 FORMAT 1 19HQUEUE CAP. EXCEEDEO) 

1902 PRINT 1901 
PAUSE 

GO TO 1998 

1903 FORMAT ( ? SHI N PROCESS QUEUE EXCEEDED) 
904 PRINT 1903 

PAUSE 

GO TO 1998 
END 



-47- 




